home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Utilities ƒ / MPW Tools ƒ / Simula4.07 / Simula 4.07ƒ / SInterfaces / macCursor.sim < prev    next >
Encoding:
Text File  |  1989-04-30  |  1.0 KB  |  37 lines  |  [TEXT/MPS ]
  1. % ---------------------------------------------------------------------------
  2. %    Class MACCursor
  3. %
  4. % Part of the interface to Macintosh Toolbox
  5. % MACCursor is part of the programming interface. Cursors are used to 
  6. % communicate information about a cursor.
  7. % Se Inside Macintosh for a description of what the attributes means.
  8. %
  9. % 890331/Boris Magnusson
  10. % 892804/Göran Eriksson
  11. %
  12. % ---------------------------------------------------------------------------
  13. external class MacUtilities="::Sinterfaces:MacUtilities";
  14. external class ToolboxGrafPort="::Sinterfaces:ToolboxGrafPort";
  15. ToolboxGrafPort class MACCursor;
  16. begin
  17.     integer handle;
  18.     procedure GetCursor(cursorID);
  19.         short integer cursorId;
  20.     begin
  21.         handle:=new MacUtilities.GetCursor(cursorID);
  22.     end;
  23.     ! Cursor Routines ;
  24.  
  25.     procedure InitCursor;TOOLBOXInitCursor;
  26.     procedure HideCursor;TOOLBOXHideCursor;
  27.     procedure ShowCursor;TOOLBOXShowCursor;
  28.     procedure ObscureCursor;TOOLBOXObscureCursor;
  29.     procedure SetCursor;
  30.     begin
  31.         integer theCursor;
  32.         theCursor:=Dereference(handle);
  33.         TOOLBOXSetCursor(theCursor);
  34.     end;
  35.     
  36. end;
  37.